<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>5</cardCount>
<cardID>3916</cardID>
<listID>5051</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>320</width>
<height>288</height>
</cardSize>
<script>-------------------------------------------------------------------------HyperCard Player HomeVersion 2.1 Player© 1992 by Claris CorporationAll Rights Reserved.-- HANDLERS USED IN THIS SCRIPT:startUp,resume,getHomeInfo-------------------------------------------------------------------------on startUp-- Requires handler: getHomeInfo-- gets and sets the user's preferencesgetHomeInfopass startUpend startUpon resume-- Requires handler: getHomeInfo-- gets and sets user preferences upon returninggetHomeInfopass resumeend resumeon getHomeInfo-- Needs: User preferences card of the home stack-- configures HyperCard to the user specified preferencesglobal Stacks,Applications,Documents,UserNameput empty into RecentCardif the long name of this stack is not the long name of home thenlock screenset lockRecent to trueset lockMessages to truepush this card -- remember where we arepop card into RecentCardgo home -- will take us to the home stack in case we're not thereend if--if there is a cd "User Preferences" thenif there is a cd fld "User Name" of cd "User Preferences" thenput (cd fld "User Name" of cd "User Preferences") into UserNameend if-- Hidden card field.if there is a cd fld "User Level" of cd "User Preferences" thenset the userLevel to cd fld "User Level" of cd "User Preferences"end ifif there is a cd btn "Power Keys" of cd "User Preferences" thenset the powerKeys to hilite of cd btn "Power Keys" ¬of cd "User Preferences"end ifif there is a cd btn "Arrow keys in text" ¬of cd "User Preferences" thenset the textArrows to hilite of cd btn "Arrow keys in text" ¬of cd "User Preferences"end ifend if-- load the search path info into their respective globalsif there is a bg fld "Paths" of cd "Stacks" of bg "Paths" then ¬put bg fld "Paths" of cd "Stacks" of bg "Paths" into Stacksif there is a bg fld "Paths" of cd "Applications" of bg "Paths" then ¬put bg fld "Paths" of cd "Applications" of bg "Paths" into Applicationsif there is a bg fld "Paths" of cd "Documents" of bg "Paths" then ¬put bg fld "Paths" of cd "Documents" of bg "Paths" into Documents--if RecentCard is not empty thengo RecentCard -- return to where we wereset lockRecent to false -- clean up for exitset lockMessages to falseunlock screenend ifend getHomeInfo</script>
